home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 95 / Amiga News 95.iso / dpat / dpat112 / mpls_patch_v1.3_demo / install mpls patch demo < prev    next >
Text File  |  1995-09-08  |  20KB  |  641 lines
  1. ;
  2. ;  $VER: MPLS Patch DEMO Install v1.3 (03/09/95)
  3. ;
  4.  
  5.  (complete 0)
  6.  
  7.  (if (< (/ (getversion) 65536) 39)
  8.   (abort "Désolé, ce programme nécessite l'OS 3.0 ou supérieur !")
  9.  )
  10.  
  11.  (welcome)
  12.  (message (cat "\n"
  13.                "MPLS Patch v1.3 (03/09/95) SHAREWARE - VERSION DEMO"
  14.                "\n\n"
  15.                "- The Magic Picture Loader System -"
  16.                "\n"
  17.                "© Copyright 1995 Lejardinier Olivier"
  18.                "\n"
  19.                "All rights reserved."
  20.                "\n\n"
  21.                "Ce patch permet à **N'IMPORTE** quelle application de "
  22.                "charger tous les formats  d'image  (JPEG, GIF, Targa, "
  23.                "etc...) si votre système en possède le datatype.      "
  24.                "Ceci est  la version  DEMO, limitée  à  l'utilisation "
  25.                "avec les programmes (True)Brilliance et DPaint.       "
  26.                "\n"
  27.                "Pour plus de détails, lisez la documentation."
  28.           )
  29.  )
  30.  
  31.  (if (askchoice
  32.       (prompt (cat "\n"
  33.                    "Voulez-vous retirer de votre système une précédente "
  34.                    "version de MPLS Patch DEMO  ?"
  35.                    "\n\n"
  36.                    "Pour plus d'informations, cliquez sur 'Help...'"
  37.                    "\n"
  38.               )
  39.       )
  40.       (help (cat "\n"
  41.                  "Si  vous   choisissez   'Installer',  le  programme "
  42.                  "d'installation poursuivra l'installation  de  cette "
  43.                  "version."
  44.                  "\n\n"
  45.                  "Si   vous   choisissez   'Retirer',  le   programme "
  46.                  "d'installation   essaiera   de   retirer  tous  les "
  47.                  "fichiers de la  précédente  installation  afin  que "
  48.                  "ceux-ci   n'entre   pas   en   conflit  avec  cette "
  49.                  "installation."
  50.             )
  51.       )
  52.       (choices "Installer"
  53.                "Retirer"
  54.       )
  55.       (default 0)
  56.      )
  57.   (
  58.    (set olddrawer-source
  59.     (askdir
  60.      (prompt (cat "\n"
  61.                   "Où avez-vous installé le répertoire MPLS_Patch_DEMO "
  62.                   "lors de la précédente installation ?"
  63.                   "\n"
  64.              )
  65.      )
  66.      (help (cat "\n"
  67.                 "Vous  devez  sélectionner   une   partition  ou  un "
  68.                 "répertoire de  votre  disque  dur  dans lequel vous "
  69.                 "avez installé  le  répertoire  de  MPLS Patch DEMO, "
  70.                 "lors de la précédente installation."
  71.            )
  72.      )
  73.      (default "SYS:Tools")
  74.     )
  75.    )
  76.    
  77.    (if (not (exists (tackon olddrawer-source "MPLS_Patch_DEMO")))
  78.     (abort (cat "\n"
  79.                 "Le répertoire sélectionné ne contient pas de répertoire "
  80.                 "'MPLS_Patch_DEMO'."
  81.            )
  82.     )
  83.     (set @default-dest (tackon olddrawer-source "MPLS_Patch_DEMO"))
  84.    )
  85.      
  86.    (set oldpatch-source
  87.     (askdir
  88.      (prompt (cat "\n"
  89.                   "Où avez-vous installé le programme principal de "
  90.                   "\n"
  91.                   "MPLS Patch DEMO lors de la précédente installation ?"
  92.                   "\n"
  93.              )
  94.      )
  95.      (help (cat "\n"
  96.                 "Vous  devez  sélectionner   une   partition  ou  un "
  97.                 "répertoire de  votre  disque  dur  dans lequel vous "
  98.                 "avez   effectué   la  précédente   installation  du "
  99.                 "programme principal de MPLS Patch DEMO."
  100.                 "\n"
  101.                 "Le programme principal a soit été installé dans son "
  102.                 "répertoire    'MPLS_Patch_DEMO',   soit   dans   le "
  103.                 "répertoire 'WBStartup' de votre partition Workbench."
  104.            )
  105.      )
  106.      (default @default-dest)
  107.     )
  108.    )
  109.  
  110.    (set olddoc-source
  111.     (askdir
  112.      (prompt (cat "\n"
  113.                   "Où avez-vous installé la documentation de "
  114.                   "\n"
  115.                   "MPLS Patch DEMO lors de la précédente installation ?"
  116.                   "\n"
  117.              )
  118.      )
  119.      (help (cat "\n"
  120.                 "Vous  devez  sélectionner   une   partition  ou  un "
  121.                 "répertoire de  votre  disque  dur  dans lequel vous "
  122.                 "avez   effectué   la  précédente  installation  de  "
  123.                 "la documentation de MPLS Patch DEMO."
  124.                 "\n"
  125.                 "La documentation a sans doute été installé dans  le "
  126.                 "répertoire 'MPLS_Patch_DEMO'."
  127.            )
  128.      )
  129.      (default @default-dest)
  130.     )
  131.    )
  132.  
  133.    (working (cat "\n"
  134.                  "Effacement du programme principal..."
  135.             )
  136.    )
  137.    (run "C:Delete >NIL: " (tackon oldpatch-source "MPLS_DEMO.B#?") " ALL FORCE QUIET")
  138.    (run "C:Delete >NIL: " (tackon oldpatch-source "MPLS_DEMO.T#?") " ALL FORCE QUIET")
  139.    (run "C:Delete >NIL: " (tackon oldpatch-source "MPLS_DEMO.B#?") " ALL FORCE QUIET")
  140.    (run "C:Delete >NIL: " (tackon oldpatch-source "MPLS_Patch.B#?") " ALL FORCE QUIET")
  141.    (run "C:Delete >NIL: " (tackon oldpatch-source "MPLS_Patch.T#?") " ALL FORCE QUIET")
  142.    (run "C:Delete >NIL: " (tackon oldpatch-source "MPLS_Patch.D#?") " ALL FORCE QUIET")
  143.    (run "C:Delete >NIL: SYS:WBStartup/MPLS_DEMO.B#? ALL FORCE QUIET")
  144.    (run "C:Delete >NIL: SYS:WBStartup/MPLS_DEMO.T#? ALL FORCE QUIET")
  145.    (run "C:Delete >NIL: SYS:WBStartup/MPLS_DEMO.B#? ALL FORCE QUIET")
  146.    (run "C:Delete >NIL: SYS:WBStartup/MPLS_Patch.B#? ALL FORCE QUIET")
  147.    (run "C:Delete >NIL: SYS:WBStartup/MPLS_Patch.T#? ALL FORCE QUIET")
  148.    (run "C:Delete >NIL: SYS:WBStartup/MPLS_Patch.B#? ALL FORCE QUIET")
  149.  
  150.    (working (cat "\n"
  151.                  "Effacement de la documentation..."
  152.             )
  153.    )
  154.    (run "C:Delete >NIL: " (tackon olddoc-source "MPLS.Guide#?") " ALL FORCE QUIET")
  155.    (run "C:Delete >NIL: " (tackon olddoc-source "MPLS.Doc#?") " ALL FORCE QUIET")
  156.    (run "C:Delete >NIL: " (tackon olddoc-source "MPLS_#?DEMO.Guide#?") " ALL FORCE QUIET")
  157.    (run "C:Delete >NIL: " (tackon olddoc-source "MPLS_#?DEMO.Doc#?") " ALL FORCE QUIET")
  158.    (run "C:Delete >NIL: " (tackon olddoc-source "Description#?") " ALL FORCE QUIET")
  159.    (run "C:Delete >NIL: " (tackon olddoc-source "Shareware#?") " ALL FORCE QUIET")
  160.    (run "C:Delete >NIL: " (tackon olddoc-source "Registration#?") " ALL FORCE QUIET")
  161.    (run "C:Delete >NIL: " (tackon olddoc-source "Bugs_Report#?") " ALL FORCE QUIET")
  162.    (run "C:Delete >NIL: " (tackon olddoc-source "Print#?") " ALL FORCE QUIET")
  163.    (run "C:Delete >NIL: " (tackon olddoc-source "Locale#?") " ALL FORCE QUIET")
  164.    (run "C:Delete >NIL: " (tackon olddoc-source "Catalogs#?") " ALL FORCE QUIET")
  165.    (run "C:Delete >NIL: LOCALE:Catalogs/Français/mplspatch_demo.catalog ALL FORCE QUIET")
  166.  
  167.    (working (cat "\n"
  168.                  "Effacement du répertoire 'MPLS_Patch_DEMO'..."
  169.             )
  170.    )
  171.    (run "C:Delete >NIL: " (tackon olddrawer-source "MPLS_Patch_DEMO#?") " ALL FORCE QUIET")
  172.  
  173.    (if (not (askbool
  174.              (prompt (cat "\n"
  175.                           "Voulez-vous procéder à l'installation de la nouvelle "
  176.                           "version de MPLS Patch DEMO ?"
  177.                      )
  178.              )
  179.              (help (cat "\n"
  180.                         "Si  vous   répondez   'Installer',   le   programme "
  181.                         "d'installation installera  la  nouvelle version  de "
  182.                         "MPLS Patch DEMO."
  183.                         "\n\n"
  184.                         "Si   vous   répondez   ' Quitter',   le   programme "
  185.                         "d'installation s'arrêtera."
  186.                    )
  187.              )
  188.              (choices "Installer"
  189.                       "Quitter"
  190.              )
  191.             )
  192.        )
  193.     (abort (cat "\n"
  194.                 "Installation abandonnée..."
  195.            )
  196.     )
  197.    )
  198.   )
  199.  )
  200.     
  201.      
  202.  (set patch-version
  203.   (askchoice
  204.    (prompt (cat "\n"
  205.                 "Quelle version de MPLS Patch DEMO voulez-vous utiliser ?"
  206.                 "\n"
  207.            )
  208.    )
  209.    (help (cat "\n"
  210.               "Vous devez sélectionner l'utilitaire graphique avec "
  211.               "lequel MPLS Patch DEMO sera utilisé."
  212.               "\n\n"
  213.               "IMPORTANT : La version que  vous  sélectionnerez ne "
  214.               "sera utilisable  qu'AVEC  l'utilitaire qraphique en "
  215.               "question, donc si vous désirez une version complète "
  216.               "\n\n"
  217.               "               !!! ENREGISTREZ-VOUS !!!"
  218.               "\n\n"
  219.               "Voir la section  'Shareware'  de  la  documentation "
  220.               "pour plus de détails."
  221.          )
  222.    )
  223.    (choices "Brilliance"
  224.             "TrueBrilliance"
  225.             "DPaint"
  226.             "Toutes les versions"
  227.    )
  228.    (default 0)
  229.   )
  230.  )
  231.  
  232.  (set patch-dest "SYS:Tools")
  233.  
  234.  (if (<> patch-version 3)
  235.   (if (not (exists "SYS:WBStartup/MPLS_Patch"))
  236.    (
  237.     (message (cat "\n"
  238.                   "Le  programme  d'installation  va  maintenant  vous "
  239.                   "demander  si  vous  voulez que MPLS Patch DEMO soit "
  240.                   "installé en permanence dans le système.             "
  241.                   "\n\n"
  242.                   "CEPENDANT, n'oublier  pas que cette version est une "
  243.                   "démonstration,  et  qu'elle  se DESACTIVERA au bout "
  244.                   "d'un certain temps, donc l'installation  permanente "
  245.                   "n'est pas forcément le meilleur choix...            "
  246.              )
  247.     )
  248.     (if (askbool
  249.          (prompt (cat "\n"
  250.                       "Voulez-vous que  MPLS Patch DEMO  soit  installé en "
  251.                       "permanence dans le système ?"
  252.                       "\n"
  253.                  )
  254.          )
  255.          (help (cat "\n"
  256.                     "Si vous répondez 'Oui', le programme  principal  de "
  257.                     "MPLS Patch DEMO  sera   copié  dans  le  répertoire "
  258.                     "'WBStartup' de votre partition Workbench afin qu'il "
  259.                     "puisse être installé dans le  système à chaque fois "
  260.                     "que vous redémarrerez votre Amiga.                  "
  261.                     "\n\n"
  262.                     "Si  vous  répondez  'Non',   MPLS Patch DEMO   sera "
  263.                     "installé avec son propre répertoire à l'emplacement "
  264.                     "que vous choisirez."
  265.                     "\n\n"
  266.                     "Dans les deux cas, la  documentation et les données "
  267.                     "annexes  seront   installées   dans  le  répertoire "
  268.                     "'MPLS_Patch_DEMO'."
  269.                )
  270.          )
  271.          (choices "Oui"
  272.                   "Non"
  273.          )
  274.         )
  275.      (set patch-dest "SYS:WBStartup")
  276.     )
  277.    )
  278.    (message (cat "\n"
  279.                  "Le programme d'installation  a  détecté la présence "
  280.                  "d'une version  ENREGISTREE  de  MPLS Patch  dans le "
  281.                  "répertoire 'WBStartup' de votre partition Workbench."
  282.                  "\n\n"
  283.                  "Si  c'est   vraiment  le  cas,  je  vous  conseille "
  284.                  "fortement  de   ne   pas  installer  le   programme "
  285.                  "principal de MPLS Patch DEMO dans ce répertoire.    "
  286.             )
  287.    )
  288.   )
  289.  )
  290.  
  291.  (set @default-dest patch-dest)
  292.  
  293.  (if (<> (expandpath patch-dest) (expandpath "SYS:WBStartup"))
  294.   (
  295.    (set patch-dest
  296.     (askdir
  297.      (prompt (cat "\n"
  298.                   "Où voulez-vous installer 'MPLS_Patch_DEMO' ?"
  299.                   "\n"
  300.                   "(Un répertoire 'MPLS_Patch_DEMO' sera créé)"
  301.                   "\n"
  302.              )
  303.      )
  304.      (help (cat "\n"
  305.                 "Vous  devez   sélectionner   une  partition  ou  un "
  306.                 "répertoire de votre disque  dur  dans  lequel  sera "
  307.                 "installé le répertoire 'MPLS_Patch_DEMO'."
  308.                 "\n\n"
  309.                 "Si vous voulez que  MPLS Patch DEMO soit  actif  en "
  310.                 "permanence,  vous   devrez   déplacer   l'icône  du "
  311.                 "programme dans le répertoire 'WBStartup'  de  votre "
  312.                 "partition Workbench."
  313.            )
  314.      )
  315.      (default @default-dest)
  316.     )
  317.    )
  318.    
  319.    (if (= (expandpath patch-dest) (expandpath "SYS:WBStartup"))
  320.     (abort (cat "\n"
  321.                 "Vous ne pouvez pas installer le répertoire "
  322.                 "'MPLS_Patch_DEMO' dans le répertoire 'SYS:WBStartup' !!!"
  323.            )
  324.     )
  325.     (set patch-dest (tackon patch-dest "MPLS_Patch_DEMO"))
  326.    )
  327.   )
  328.  )
  329.  
  330.  (set @default-dest patch-dest)
  331.  
  332.  (complete 10)
  333.  
  334.  (copyfiles
  335.   (source "")
  336.   (set patch-prog "")
  337.   (if (<> patch-version 3)
  338.    (if (= patch-version 0)
  339.     (
  340.      (choices "MPLS_Patch.Brilliance")
  341.      (set patch-prog "MPLS_Patch.Brilliance")
  342.     )
  343.     (if (= patch-version 1)
  344.      (
  345.       (choices "MPLS_Patch.TrueBrilliance")
  346.       (set patch-prog "MPLS_Patch.TrueBrilliance")
  347.      )
  348.      (
  349.       (choices "MPLS_Patch.DPaint")
  350.       (set patch-prog "MPLS_Patch.DPaint")
  351.      )
  352.     )
  353.    )
  354.    (choices "MPLS_Patch.Brilliance" "MPLS_Patch.TrueBrilliance" "MPLS_Patch.DPaint")
  355.   )
  356.   (dest patch-dest)
  357.   (files)
  358.   (infos)
  359.   (noposition)
  360.  )
  361.  
  362.  (if (= (expandpath patch-dest) (expandpath "SYS:WBStartup"))
  363.    (tooltype
  364.     (dest (tackon patch-dest patch-prog))
  365.     (settooltype "QUIET" "")
  366.    )
  367.   (
  368.    (message (cat "\n"
  369.                  "Pour  désactiver  la  requête  'Patch installed !!' "
  370.                  "qui s'affichera lorsque  vous  exécuterez le patch, "
  371.                  "vous devrez retirer les () autour du tooltype QUIET "
  372.                  "dans l'icône du programme.                          "
  373.             )
  374.    )
  375.    (if (<> patch-version 3)
  376.     (
  377.      (tooltype
  378.       (dest (tackon patch-dest "MPLS_Patch.Brilliance"))
  379.       (settooltype "(QUIET)" "")
  380.      )
  381.      (tooltype
  382.       (dest (tackon patch-dest "MPLS_Patch.TrueBrilliance"))
  383.       (settooltype "(QUIET)" "")
  384.      )
  385.      (tooltype
  386.       (dest (tackon patch-dest "MPLS_Patch.DPaint"))
  387.       (settooltype "(QUIET)" "")
  388.      )
  389.     )
  390.    )
  391.   )
  392.  )
  393.  
  394.  (complete 35)
  395.  
  396.  (set doc-dest
  397.   (askdir
  398.    (if (= (expandpath patch-dest) (expandpath "SYS:WBStartup"))
  399.     (
  400.      (set @default-dest "SYS:Tools")
  401.      (prompt (cat "\n"
  402.                   "Où voulez-vous installer la documentation ?"
  403.                   "\n"
  404.                   "(Un répertoire 'MPLS_Patch_DEMO' sera créé)"
  405.                   "\n"
  406.              )
  407.      )
  408.     )
  409.     (
  410.      (prompt (cat "\n"
  411.                   "Ou voulez-vous installer la documentation ?"
  412.                   "\n"
  413.              )
  414.      )
  415.     )
  416.    )
  417.    (help (cat "\n"
  418.               "Vous  devez   sélectionner  une   partition  ou  un "
  419.               "répertoire  de  votre  disque  dur dans lequel sera "
  420.               "copiée la documentation."
  421.               "\n\n"
  422.               "Note :"
  423.               "\n"
  424.               "Il est préférable de placer les documentations dans "
  425.               "le répertoire 'MPLS_Patch_DEMO'."
  426.          )
  427.    )
  428.    (default @default-dest)
  429.   )
  430.  )
  431.  
  432.  (if (= (expandpath doc-dest) (expandpath "SYS:WBStartup"))
  433.   (abort (cat "\n"
  434.                "Vous ne pouvez pas installer la documentation de "
  435.                "MPLS Patch DEMO  dans le répertoire 'SYS:WBStartup' !!!"
  436.          )
  437.   )
  438.  )
  439.  
  440.  (if (= (expandpath patch-dest) (expandpath "SYS:WBStartup"))
  441.   (set doc-dest (tackon doc-dest "MPLS_Patch_DEMO"))
  442.  )
  443.  
  444.  (complete 45)
  445.  
  446.  (set choice
  447.   (askchoice
  448.    (prompt (cat "\n"
  449.                 "Quel format de documentation voulez-vous utiliser ?"
  450.                 "\n"
  451.            )
  452.    )
  453.    (help (cat "\n"
  454.               "Vous devez sélectionner le  format de documentation "
  455.               "que vous désirez utiliser."
  456.               "\n\n"
  457.               "AmigaGuide : à visualiser avec Multiview."
  458.               "\n"
  459.               "Doc        : format  ASCII  normal  (ideal pour une "
  460.               "               sortie sur imprimante),  à  visualiser "
  461.               "               avec More, Multiview..."
  462.          )
  463.    )
  464.    (choices "AmigaGuide"
  465.             "Doc"
  466.             "AmigaGuide & Doc"
  467.    )
  468.    (default 0)
  469.   )
  470.  )
  471.  
  472.  (complete 55)
  473.  
  474.  (copyfiles
  475.   (source "")
  476.   (if (= choice 0)
  477.    (choices "MPLS_Patch_DEMO.Guide")
  478.    (if (= choice 1)
  479.     (choices "MPLS_Patch_DEMO.Doc")
  480.     (choices "MPLS_Patch_DEMO.Guide" "MPLS_Patch_DEMO.Doc")
  481.    )
  482.   )
  483.   (dest doc-dest)
  484.   (files)
  485.   (infos)
  486.   (noposition)
  487.  )
  488.  
  489.  (copyfiles
  490.   (source "")
  491.   (choices "Description" "Shareware" "Registration" "Bugs_Report" "Print.info")
  492.   (if (= (expandpath patch-dest) (expandpath "SYS:WBStartup"))
  493.    (dest doc-dest)
  494.    (dest patch-dest)
  495.   )
  496.   (files)
  497.   (infos)
  498.   (noposition)
  499.  )
  500.  
  501.  (complete 70)
  502.  
  503.  (set choice
  504.   (askchoice
  505.    (prompt (cat "\n"
  506.                 "Dans quelle langue voulez-vous utiliser"
  507.                 "\n"
  508.                 "MPLS Patch DEMO ?"
  509.                 "\n"
  510.            )
  511.    )
  512.    (help (cat "\n"
  513.               "Vous devez sélectionner  la  langue  dans  laquelle "
  514.               "MPLS Patch DEMO sera utilisé."
  515.               "\n\n"
  516.               "Le catalogue français ne sera installé QUE si  vous "
  517.               "sélectionnez 'Française'."
  518.               "\n\n"
  519.               "Note :"
  520.               "\n"
  521.               "Votre   choix  doit   normalement  correspondre  au "
  522.               "langage  utilisé   pour  votre  Workbench  (voir le "
  523.               "programme de préférences 'SYS:Prefs/Locale')."
  524.          )
  525.    )
  526.    (choices "Française"
  527.             "Anglaise"
  528.    )
  529.    (default 0)
  530.   )
  531.  )
  532.  
  533.  (complete 75)
  534.  
  535.  (if (= choice 0)
  536.   (
  537.    (if (not (exists "LOCALE:Catalogs"))
  538.     (makedir "LOCALE:Catalogs")
  539.    )
  540.    (copyfiles
  541.     (source "Catalogs/Français/mplspatch_demo.catalog")
  542.     (dest "LOCALE:Catalogs/Français")
  543.     (files)
  544.    )
  545.   )
  546.   (run "C:Delete >NIL: LOCALE:Catalogs/Français/mplspatch_demo.catalog QUIET FORCE")
  547.  )
  548.  
  549.  (copyfiles
  550.   (source "Catalogs")
  551.   (choices "Make_Cat_Demo" "mplspatch_demo.cd" "Français/français_demo.ct")
  552.   (if (= (expandpath patch-dest) (expandpath "SYS:WBStartup"))
  553.    (dest (tackon doc-dest "Locale"))
  554.    (dest (tackon patch-dest "Locale"))
  555.   )
  556.   (files)
  557.   (infos)
  558.   (noposition)
  559.  )
  560.  
  561.  (if (askbool
  562.       (prompt (cat "\n"
  563.                    "Voulez-vous installer les images d'exemple ?"
  564.                    "\n"
  565.               )
  566.       )
  567.       (help (cat "\n"
  568.                  "Ces images, dans divers formats,  vous  permettront "
  569.                  "de   tester  MPLS Patch DEMO  avec  les  différents "
  570.                  "datatypes déjà installés dans votre système."
  571.             )
  572.       )
  573.       (choices "Oui"
  574.                "Non"
  575.       )
  576.      )
  577.   (
  578.    (set pics-dest
  579.     (askdir
  580.      (prompt (cat "\n"
  581.                   "Où voulez-vous installer ces images ?"
  582.                   "\n"
  583.                   "(Un répertoire 'MPLS_Examples' sera créé)"
  584.                   "\n"
  585.              )
  586.      )
  587.      (help (cat "\n"
  588.                 "Vous  devez   sélectionner  une   partition  ou  un "
  589.                 "répertoire  de  votre  disque  dur dans lequel sera "
  590.                 "installé  le  répertoire  'MPLS_Examples' contenant "
  591.                 "les images d'exemple qui vous permettront de tester "
  592.                 "MPLS Patch DEMO."
  593.            )
  594.      )
  595.      (if (= (expandpath patch-dest) (expandpath "SYS:WBStartup"))
  596.       (default doc-dest)
  597.       (default patch-dest)
  598.      )
  599.     )
  600.    )
  601.    (if (= (expandpath pics-dest) (expandpath "SYS:WBStartup"))
  602.     (abort (cat "\n"
  603.                 "Vous ne pouvez pas installer les images d'exemple de "
  604.                 "MPLS Patch DEMO  dans le répertoire 'SYS:WBStartup' !!!"
  605.            )
  606.     )
  607.    )
  608.    (working "Désarchivage des images d'exemple...")
  609.    (run "C/LHEX -fwT: x Examples/Pics.LHA")
  610.    (copyfiles
  611.     (source "T:")
  612.     (dest (tackon pics-dest "MPLS_Examples"))
  613.     (pattern "Pic#?")
  614.     (files)
  615.     (infos)
  616.    )
  617.    (run "C:Delete T:Pic#?")
  618.   )
  619.  )
  620.  
  621.  (complete 95)
  622.  
  623.  (message (cat "\n"
  624.                "Pour  démarrer   MPLS Patch DEMO   tout   de  suite, "
  625.                "double-cliquez  sur  son  icône,  que vous trouverez "
  626.                "dans le répertoire :                                 "
  627.                "\n\n"
  628.                "'"(expandpath patch-dest)"'"
  629.                "\n\n"
  630.                "Pour  que  MPLS Patch DEMO  fonctionne  normalement, "
  631.                "plusieurs  'datatypes'  pouvant  gérer  des  formats "
  632.                "d'images doivent être installés dans votre  système. "
  633.                "\n\n"
  634.                "Vous pouvez aussi vous  en  procurer auprès de votre "
  635.                "distributeur de programmes du domaine publique.      "
  636.           )
  637.  )
  638.  
  639.  (complete 100)
  640.  
  641.  (exit)